home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / Language.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  6.5 KB  |  153 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Friday, October 20, 1989 at 1:00 PM
  3.     Language.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.     Copyright Apple Computer, Inc.    1986-1990
  7.     All rights reserved
  8.  
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.     UNIT Language;
  18.     INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingLanguage}
  22. {$SETC UsingLanguage := 1}
  23.  
  24. CONST
  25.  
  26. { Language Codes }                                                        {updated comments <2>}
  27.  
  28. langEnglish = 0;        { smRoman script }
  29. langFrench = 1;            { smRoman script }
  30. langGerman = 2;            { smRoman script }
  31. langItalian = 3;        { smRoman script }
  32. langDutch = 4;            { smRoman script }
  33. langSwedish = 5;        { smRoman script }
  34. langSpanish = 6;        { smRoman script }
  35. langDanish = 7;            { smRoman script }
  36. langPortuguese = 8;        { smRoman script }                                {<x3>}
  37. langNorwegian = 9;        { smRoman script }
  38. langHebrew = 10;        { smHebrew script }
  39. langJapanese = 11;        { smJapanese script }
  40. langArabic = 12;        { smArabic script }
  41. langFinnish = 13;        { smRoman script }
  42. langGreek = 14;            { smGreek script }
  43. langIcelandic = 15;        { extended Roman script }
  44. langMaltese = 16;        { extended Roman script }                        {<x3>}
  45. langTurkish = 17;        { extended Roman script }
  46. langCroatian = 18;        { Serbo-Croatian in extended Roman script }        {<x20>}
  47. langTradChinese = 19;    { Chinese in traditional characters }            {<x15>}
  48. langUrdu = 20;            { smArabic script }
  49. langHindi = 21;            { smDevanagari script }
  50. langThai = 22;            { smThai script }
  51. langKorean = 23;        { smKorean script }                                {<x1.7>}
  52. langLithuanian = 24;    { smEastEurRoman script }                        {<x3>}
  53. langPolish = 25;        { smEastEurRoman script }                        {<x3>}
  54. langHungarian = 26;        { smEastEurRoman script }                        {<x3>}
  55. langEstonian = 27;        { smEastEurRoman script }                        {<x3>}
  56. langLettish = 28;        { smEastEurRoman script }                        {<x3>}
  57. langLatvian = 28;        { Synonym for langLettish }                        {<x20>}
  58. langLapponian = 29;        { extended Roman script }                        {<x3>}
  59. langLappish = 29;        { Synonym for langLapponian }                    {<x20>}
  60. langFaeroese = 30;        { smRoman script }                                {<x3>}
  61. langFarsi = 31;            { smArabic script }                                {<x3>}
  62. langPersian = 31;        { Synonym for langFarsi }                        {<x20>}
  63. langRussian = 32;        { smCyrillic script }                            {<x3>}
  64. langSimpChinese = 33;    { Chinese in simplified characters }            {<x15>}
  65. langFlemish = 34;        { smRoman script }                                {<1>}
  66. langIrish = 35;            { smRoman script }                                {<1>}
  67. langAlbanian = 36;        { smRoman script }                                {<1>}
  68. langRomanian = 37;        { smEastEurRoman script }                        {<1>}
  69. langCzech = 38;            { smEastEurRoman script }                        {<1>}
  70. langSlovak = 39;        { smEastEurRoman script }                        {<1>}
  71. langSlovenian = 40;        { smEastEurRoman script }                        {<1>}
  72. langYiddish = 41;        { smHebrew script }                                {<1>}
  73. langSerbian = 42;        { Serbo-Croatian in smCyrillic script }            {<1>}
  74. langMacedonian = 43;    { smCyrillic script }                            {<1>}
  75. langBulgarian = 44;        { smCyrillic script }                            {<1>}
  76. langUkrainian = 45;        { smCyrillic script }                            {<1>}
  77. langByelorussian = 46;    { smCyrillic script }                            {<1>}
  78. langUzbek = 47;            { smCyrillic script }                            {<1>}
  79. langKazakh = 48;        { smCyrillic script }                            {<1>}
  80. langAzerbaijani = 49;    { Azerbaijani in smCyrillic script (USSR) }        {<1>}
  81. langAzerbaijanAr = 50;    { Azerbaijani in smArabic script (Iran) }        {<1>}
  82. langArmenian = 51;        { smArmenian script }                            {<1>}
  83. langGeorgian = 52;        { smGeorgian script }                            {<1>}
  84. langMoldavian = 53;        { smCyrillic script }                            {<1>}
  85. langKirghiz = 54;        { smCyrillic script }                            {<1>}
  86. langTajiki = 55;        { smCyrillic script }                            {<1>}
  87. langTurkmen = 56;        { smCyrillic script }                            {<1>}
  88. langMongolian = 57;        { Mongolian in smMongolian script }                {<1>}
  89. langMongolianCyr = 58;    { Mongolian in smCyrillic script }                {<1>}
  90. langPashto = 59;        { smArabic script }                                {<1>}
  91. langKurdish = 60;        { smArabic script }                                {<1>}
  92. langKashmiri = 61;        { smArabic script }                                {<1>}
  93. langSindhi = 62;        { smExtArabic script }                            {<1>}
  94. langTibetan = 63;        { smTibetan script }                            {<1>}
  95. langNepali = 64;        { smDevanagari script }                            {<1>}
  96. langSanskrit = 65;        { smDevanagari script }                            {<1>}
  97. langMarathi = 66;        { smDevanagari script }                            {<1>}
  98. langBengali = 67;        { smBengali script }                            {<1>}
  99. langAssamese = 68;        { smBengali script }                            {<1>}
  100. langGujarati = 69;        { smGujarati script }                            {<1>}
  101. langPunjabi = 70;        { smGurmukhi script }                            {<1>}
  102. langOriya = 71;            { smOriya script }                                {<1>}
  103. langMalayalam = 72;        { smMalayalam script }                            {<1>}
  104. langKannada = 73;        { smKannada script }                            {<1>}
  105. langTamil = 74;            { smTamil script }                                {<1>}
  106. langTelugu = 75;        { smTelugu script }                                {<1>}
  107. langSinhalese = 76;        { smSinhalese script }                            {<1>}
  108. langBurmese = 77;        { smBurmese script }                            {<1>}
  109. langKhmer = 78;            { smKhmer script }                                {<1>}
  110. langLao = 79;            { smLaotian script }                            {<1>}
  111. langVietnamese = 80;    { smVietnamese script }                            {<1>}
  112. langIndonesian = 81;    { smRoman script }                                {<1>}
  113. langTagalog = 82;        { smRoman script }                                {<1>}
  114. langMalayRoman = 83;    { Malay in smRoman script }                        {<1>}
  115. langMalayArabic = 84;    { Malay in smArabic script }                    {<1>}
  116. langAmharic = 85;        { smEthiopic script }                            {<1>}
  117. langTigrinya = 86;        { smEthiopic script }                            {<1>}
  118. langGalla = 87;            { smEthiopic script }                            {<1>}
  119. langOromo = 87;            { Synonym for langGalla }                        {<1>}
  120. langSomali = 88;        { smRoman script }                                {<1>}
  121. langSwahili = 89;        { smRoman script }                                {<1>}
  122. langRuanda = 90;        { smRoman script }                                {<1>}
  123. langRundi = 91;            { smRoman script }                                {<1>}
  124. langChewa = 92;            { smRoman script }                                {<1>}
  125. langMalagasy = 93;        { smRoman script }                                {<1>}
  126. langEsperanto = 94;        { extended Roman script }                        {<1>}
  127. langWelsh = 128;        { smRoman script }                                {<1>}
  128. langBasque = 129;        { smRoman script }                                {<1>}
  129. langCatalan = 130;        { smRoman script }                                {<1>}
  130. langLatin = 131;        { smRoman script }                                {<1>}
  131. langQuechua = 132;        { smRoman script }                                {<1>}
  132. langGuarani = 133;        { smRoman script }                                {<1>}
  133. langAymara = 134;        { smRoman script }                                {<1>}
  134. langTatar = 135;        { smCyrillic script }                            {<1>}
  135. langUighur = 136;        { smArabic script }                                {<1>}
  136. langDzongkha = 137;        { (lang of Bhutan) smTibetan script }            {<1>}
  137. langJavaneseRom = 138;    { Javanese in smRoman script }                    {<1>}
  138. langSundaneseRom = 139;    { Sundanese in smRoman script }                    {<1>}
  139.  
  140. {obsolete names, kept for backward compatibility}                {moved here <2>}
  141.  
  142. langPortugese = 8;        { old misspelled version, kept for compatibility }
  143. langMalta = 16;            { old misspelled version, kept for compatibility }
  144. langYugoslavian = 18;    { (use langCroatian, langSerbian, etc.) }        {<x20>}
  145. langChinese = 19;        { (use langTradChinese or langSimpChinese) }    {<x15>}
  146.  
  147. {$ENDC}    { UsingLanguage }
  148.  
  149. {$IFC NOT UsingIncludes}
  150.     END.
  151. {$ENDC}
  152.  
  153.